Public Class EAmonestacion

    Private mFecha As Date
    Public Property fecha() As Date
        Get
            Return mFecha
        End Get
        Set(ByVal value As Date)
            mFecha = value
        End Set
    End Property

    Private mDescripcion As String
    Public Property Descripcion() As String
        Get
            Return mDescripcion
        End Get
        Set(ByVal value As String)
            mDescripcion = value
        End Set
    End Property

    Private mCantidad As Integer
    Public Property Cantidad() As Integer
        Get
            Return mCantidad
        End Get
        Set(ByVal value As Integer)
            mCantidad = value
        End Set
    End Property

    Private mTrimestre As Integer
    Public Property Trimestre() As Integer
        Get
            Return mTrimestre
        End Get
        Set(ByVal value As Integer)
            mTrimestre = value
        End Set
    End Property
    Private mciclo As Integer
    Public Property ciclo() As Integer
        Get
            Return mciclo
        End Get
        Set(ByVal value As Integer)
            mciclo = value
        End Set
    End Property

    Public Sub New()
        mFecha = "01/01/1900"
        mDescripcion = ""
        mCantidad = 0
        mTrimestre = 0
        mciclo = 0
    End Sub
End Class
